home *** CD-ROM | disk | FTP | other *** search
/ Die Ultimative Software-P…i Collection 1996 & 1997 / Die Ultimative Software-Pakete CD-ROM fur Atari Collection 1996 & 1997.iso / l / lernen / vokabel / titel.gfa (.txt) < prev    next >
Encoding:
GFA-BASIC Atari  |  1996-11-17  |  1.2 KB  |  43 lines
  1. IF XBIOS(4)<>2
  2.   ALERT 1,"Vokus läuft leider nur|im Monochrom-Modus !",0,"ABBRUCH",dummy%
  3.   QUIT
  4. ENDIF
  5. SPOKE &H484,PEEK(&H484) AND NOT 1
  6. pb%=XBIOS(2)
  7. @loadpic("VO_TITEL.PI3",*pic$,*pal$,*res%)
  8. IF res%<>XBIOS(4)
  9.   ALERT 3,"Falsche Auflösung !",1,"OKAY",back%
  10.   QUIT
  11. ELSE
  12.   buff$=SPACE$(5120)
  13.   madr%=VARPTR(buff$)
  14.   BLOAD "TITEL.MUS",madr%
  15.   DIM b!(31,19)
  16.   c%=0
  17.   REPEAT
  18.     x%=RAND(32)
  19.     y%=RAND(20)
  20.     IF NOT b!(x%,y%)
  21.       b!(x%,y%)=TRUE
  22.       MUL x%,20
  23.       MUL y%,20
  24.       RC_COPY VARPTR(pic$),x%,y%,20,20 TO pb%,x%,y%
  25.       INC c%
  26.     ENDIF
  27.   UNTIL c%=640
  28.   ~XBIOS(32,L:madr%)
  29.   VOID XBIOS(6,L:VARPTR(pal$))
  30. ENDIF
  31. REPEAT
  32. UNTIL LEN(INKEY$)
  33. CHAIN "VORSPANN.GFA"
  34. PROCEDURE loadpic(p.nm$,p.ad%,c.ad%,p.rs%)
  35.   LOCAL buff$,b.adr%
  36.   buff$=SPACE$(32034)
  37.   b.adr%=VARPTR(buff$)
  38.   BLOAD p.nm$,b.adr%
  39.   *p.ad%=RIGHT$(buff$,32000)
  40.   *c.ad%=MID$(buff$,3,32)
  41.   *p.rs%=DPEEK(VARPTR(buff$))
  42. RETURN
  43.